home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / POINTC.for < prev    next >
Text File  |  1991-04-13  |  505b  |  22 lines
  1.         SUBROUTINE POINTC(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4.         REAL*4 VX,VY
  5.         DIMENSION X(NPTS), Y(NPTS)
  6. C
  7. C       THIS SUBROUTINE PLOTS THE VISIBLE POINTS ON THE SCREEN
  8. C
  9.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  10. C
  11.         REAL*4 AREA(4)
  12. C
  13.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  14.         DO 100 I=1,NPTS
  15.         CALL SCALE(X(I),Y(I),VX,VY)
  16.         CALL GSMOVE(VX,VY)
  17.         CALL SYMBOL(3,0.3)
  18. 100     CONTINUE
  19.         CALL GSRCLP(AREA)
  20.         RETURN
  21.         END
  22.